home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
PPC1B3AA.ZIP
/
PAGER.PPS
< prev
next >
Wrap
Text File
|
1996-08-08
|
43KB
|
1,673 lines
;----------------------------------------------------------------------------
; The Lemming Pager Example, Copyright(C) 1996, The AEGiS Corporation
;-----------------------------------------------------------PowerPPL v3.0ß---
; File : PAGER.PPS
; Original by : LONE RUNNER on 10/30/1995 at 2:31:37
; Last update by : LONE RUNNER on 07/29/1996 at 14:58:33
;----------------------------------------------------------------------------
#ppe
#libpath ..\..\lib
#use nameisin
Declare Procedure LemWalkStep(Int stepNum, Int Side, Int x, Int y)
Declare Procedure LemStopStep(Int stepNum, Int x, Int y)
Declare Procedure LemHeadStep(Int stepNum, Int x, Int y)
Declare Procedure LemFallStep(Int stepNum, Int x, Int y)
Declare Procedure Num(Int N, Int x, Int y)
Declare Function Menu(String PageName, Int Firstline, Int FirstX, Int LastX, Int nLines, Int Def, Int Special) Integer
Declare Procedure DispSel(Integer Seln)
Declare Procedure EraseSel(Integer Seln)
Declare Procedure EraseCursor()
Declare Procedure DrawLemArm(Int Sel)
Declare Procedure EndProcedure(string stuff)
Declare procedure DrawFailed()
Declare Procedure DrawSleeping()
Declare procedure Flash()
Declare procedure FlashOff()
Declare procedure Flash2()
Declare Function AskPwd() Boolean
Declare Function InputLine(Integer Col, Integer Row, Integer SLen, String Def, String Chars, Boolean Up, Boolean Hide) String
Declare Procedure DispBackgrnd()
Declare Procedure DispBackgrnd2()
;----------------------------------------------------------------------------
Int a, b, x, y, c, s, n, d, scnt, stepcnt, h
Float cnt
Int Decal
Boolean PageFailed
Int MenuFirstLine
String k
String BakLightBar
Int LbFirstX, LbLastX
Boolean SoundOn
String Temp, Temp2
Time T_Beg, T_End
Boolean NoisyTime
Int FlashMethod
String Password
Integer InputLineControl
Integer SendBeep, SendBeepEmerg
Integer DelayValue
String Bk(5)
String Reason
Boolean WriteMsg
Boolean PageSuccess
;----------------------------------------------------------------------------
Begin
PageOn
PageSuccess=False
Cls
StartDisp FNS
y = 17
a = 1
c = 13
s = -1
n = 10
cnt = 0
scnt = 0
stepcnt = 0
h = 1
decal = 23
;LemStopStep(0, 1, 18)
;LemStopStep(0, 68, 18)
Password = ReadLine(PPEpath()+"PAGER.CFG",1)
FlashMethod = ToInt(ReadLine(PPEpath()+"PAGER.CFG",10))
SendBeep = ToBoolean(ReadLine(PPEpath()+"PAGER.CFG",11))
SendBeepEmerg = ToBoolean(ReadLine(PPEpath()+"PAGER.CFG",12))
DelayValue = ToInt(ReadLine(PPEpath()+"PAGER.CFG",13))
if (ReadLine(PPEpath()+"PAGER.CFG",14) == "Y") WriteMsg = True
DispBackgrnd()
LemWalkStep(a, s, c, y)
Bk(0) = Scrtext(20, 9, 40, True)
Bk(1) = Scrtext(20, 10, 40, True)
Bk(2) = Scrtext(20, 11, 40, True)
Bk(3) = Scrtext(20, 12, 40, True)
Bk(4) = Scrtext(20, 13, 40, True)
Bk(5) = Scrtext(20, 14, 40, True)
AnsiPos 20,9
Print "@X0F█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█"
AnsiPos 20,10
Print "@X0F█ Your reason for paging ? █"
AnsiPos 20,11
Print "@X0F█ █"
AnsiPos 20,12
Print "@X0F█ [..................................] █"
AnsiPos 20,13
Print "@X0F█ █"
AnsiPos 20,14
Print "@X0F█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█"
Reason = InputLine(23, 12, 34, "", Mask_ascii(), True, False)
If (Reason == "") Then
Cls
End
Endif
AnsiPos 20,9
Print Bk(0)
AnsiPos 20,10
Print Bk(1)
AnsiPos 20,11
Print Bk(2)
AnsiPos 20,12
Print Bk(3)
AnsiPos 20,13
Print Bk(4)
AnsiPos 20,14
Print Bk(5)
While (GetToken() <> "") Do
EndWhile
Temp = ReadLine(PPEpath()+"PAGER.CFG",9)
Tokenize Temp
NoisyTime = True
While (TokCount() > 0) do
Temp2 = GetToken()
T_Beg = ToTime(Left(Temp2,5))
T_End = ToTime(Right(Temp2,5))
If ((Time() > T_Beg) & (Time() < T_End)) NoisyTime = False
Endwhile
If (NameIsIn("PAGER.SIL")) NoisyTime = False
SoundOn = NoisyTime
While (GetToken() <> "") Do
EndWhile
Temp = ReadLine(PPEpath()+"PAGER.CFG",2+Dow(Date()))
Tokenize Temp
While (TokCount() > 0) do
Temp2 = GetToken()
T_Beg = ToTime(Left(Temp2,5))
T_End = ToTime(Right(Temp2,5))
If ((Time() > T_Beg) & (Time() < T_End)) Goto PageIsOn
Endwhile
Goto PageIsOff
:PageIsOn
If (NameIsIn("PAGER.NOT")) Goto PageIsOff
AnsiPos 40-Len(Reason)/2,23
SPrint Reason
While (1) Do
If (PageFailed) Goto Failed
inc stepcnt
Inc a
Inc b
if (a = 9 ) a = 1
if (b = 17 ) b = 1
If ((c == 63 && s == 1) || (c == 13 && s == -1)) Then
If (s == 1) Then
s = -1
Else
s = 1
Endif
Else
If (N > 0) c = c + s
Endif
If (N == 0) Then
d = c
If (s == -1) Dec d
Num(0, d, 14)
Endif
If (N <= 0) Then
LemHeadStep(h, c, y)
Inc h
Else
LemWalkStep(a, s, c, y)
Endif
If (stepcnt > 0) Then ; 99
cnt = cnt + 1.035
d = c
If (s == -1) Dec d
Num(n, d, 14)
if (cnt >= 13*(11-n)) Dec n
Endif
Inc scnt
While (Outbytes() > 0) Do
Endwhile
If (ToReal(scnt) /3 = ToInt(scnt)/3) Then
If (SoundOn) Then
Sound 400
Else
Flash()
Endif
Delay DelayValue
If (SendBeep) MPrint ""
Else
If (SoundOn) Then
Sound 0
Else
FlashOff()
Endif
Delay DelayValue
Endif
k = MInkey()
If (k = Chr(27)) Break
k = Upper(Kinkey())
If (k = Chr(27)) Break
If (k = "S") Then
SoundOn = !SoundOn
If (!SoundOn) Sound 0
Endif
if (k = " ") Then
PageOff
Cls
PageSuccess=True
FlashOff()
Sound 0
Chat
Endprocedure("")
Endif
Endwhile
FlashOff()
Sound 0
Endprocedure("")
:Failed
FlashOff()
Sound 0
a = Menu("FAILED", 9, 23, 50, 3, 1, 1)
if (a = 1 || a == 0) Endprocedure("")
if (a = 2) Endprocedure("C"+Chr(13))
:Emergency
FlashOff()
Sound 0
DispBackgrnd2()
;LemStopStep(0, 1, 5)
stepcnt=0
scnt = 0
b = 0
s = -1
c = 50
y = 5
h=0
PageFailed = False
SoundOn = NoisyTime
LemStopStep(b, 1, 5)
LemWalkStep(1, s, c, y)
If (!AskPwd()) Goto Failed
AnsiPos 40-Len(Reason)/2,23
SPrint Reason
While (1) Do
If (PageFailed) Goto Failed
inc stepcnt
LemStopStep(b, 1, 5)
inc a
inc b
if (a = 9 ) a = 1
if (b = 17 ) b = 1
scnt = scnt+1
If (ToReal(scnt) /3 = ToInt(scnt)/3) Then
If (SoundOn) Then
Sound 2000
Else
Flash2()
Endif
If (SendBeepEmerg) MPrint ""
Delay DelayValue
Else
If (SoundOn) Then
Sound 0
Else
FlashOff()
Endif
Delay DelayValue
Endif
if (stepcnt < 85) Then
LemWalkStep(a, s, c, y)
c = c + s
Else
if (stepcnt = 85) inc c
LemFallStep(h, c, y)
Inc h
Endif
if (c == 13 && s == -1) s = 1
k = MInkey()
If (k = Chr(27)) Break
k = Upper(Kinkey())
If (k = Chr(27)) Break
If (k = "S") Then
SoundOn = !SoundOn
If (!SoundOn) Sound 0
Endif
if (k = " ") Then
PageOff
Cls
PageSuccess=True
FlashOff()
Sound 0
Chat
Endprocedure("")
Endif
Endwhile
FlashOff()
Sound 0
Endprocedure("")
:PageIsOff
FlashOff()
Sound 0
a = Menu("SLEEPING", 10, 16, 44, 3, 1, 1)
if (a = 1 || a == 0) Endprocedure("")
if (a = 2) Endprocedure("C"+Chr(13))
Goto Emergency
FlashOff()
Sound 0
Endprocedure("")
;----------------------------------------------------------------------------
Procedure LemWalkStep(int stepNum, int side, int x, int y)
If (Side == 1) Then
Select Case StepNum
Case 1
AnsiPos x, y
Print " @X02▄█▄▀ "
AnsiPos x, y+1
Print " @X02▀@X2F▄@X0F█▄ "
AnsiPos x, y+2
Print " @X0F @X1F▀▄@X07 "
AnsiPos x, y+3
Print " @X0F @X01█@X1F▀@X0F █ "
AnsiPos x, y+4
Print " @X1F▄▄@X0F ▀ "
Case 2
AnsiPos x, y
Print " @X0F @X02▄ ▄ "
AnsiPos x, y+1
Print " @X02 ▀█@X2F▄@X07 "
AnsiPos x, y+2
Print " @X0F @X1F▀@X0F█▀ "
AnsiPos x, y+3
Print " @X0F @X01█@X1F▀@X0F▄ "
AnsiPos x, y+4
Print " @X0F▄@X1F▄@X01▀▀@X1F▄@X0F▄"
Case 3
AnsiPos x, y
Print " @X0F @X02▄▄ "
AnsiPos x, y+1
Print " @X02 █@X2F▄█▄@X07 "
AnsiPos x, y+2
Print " @X0F █@X01█ "
AnsiPos x, y+3
Print " @X01 █@X1F▀@X07 "
AnsiPos x, y+4
Print " @X0F█@X01▀▀@X1F▄▄@X07 "
Case 4
AnsiPos x, y
Print " @X02▄▄▄▄ "
AnsiPos x, y+1
Print " @X02▀@X2F▄@X0F█▄ "
AnsiPos x, y+2
Print " @X0F █@X01█ "
AnsiPos x, y+3
Print " @X01 @X1F▀@X01█ "
AnsiPos x, y+4
Print " @X0F▀@X1F▄▄@X07 "
Case 5
AnsiPos x, y
Print " @X02▄█▄▀ "
AnsiPos x, y+1
Print " @X02▀@X2F▄@X0F█▄ "
AnsiPos x, y+2
Print " @X0F▄@X1F▀@X01█ "
AnsiPos x, y+3
Print " @X0F▀@X01██ @X0F█ "
AnsiPos x, y+4
Print " @X1F▄▄@X0F ▀ "
Case 6
AnsiPos x, y
Print " @X0F @X02▄ ▄ "
AnsiPos x, y+1
Print " @X02 ▀█@X2F▄@X07 "
AnsiPos x, y+2
Print " @X0F ▄█@X1F▀@X0F▀ "
AnsiPos x, y+3
Print " @X0F▄█@X01██▄ "
AnsiPos x, y+4
Print " @X0F▄@X1F▄@X01▀▀@X1F▄@X0F▄"
Case 7
AnsiPos x, y
Print " @X0F @X02▄▄ "
AnsiPos x, y+1
Print " @X02 █@X2F▄@X0F█@X2F▄@X07 "
AnsiPos x, y+2
Print " @X0F █@X01█ "
AnsiPos x, y+3
Print " @X01 @X0F▀@X01██ "
AnsiPos x, y+4
Print " @X0F█@X01▀▀@X1F▄▄@X07 "
Case 8
AnsiPos x, y
Print " @X0F @X02▄▄▄▄ "
AnsiPos x, y+1
Print " @X02 █@X2F▄@X0F█▄ "
AnsiPos x, y+2
Print " @X0F @X1F▀▄@X07 "
AnsiPos x, y+3
Print " @X0F @X1F▀@X01█ "
AnsiPos x, y+4
Print " @X01 @X0F▀@X1F▄▄@X07 "
End Select
Else
Select Case StepNum
Case 1
AnsiPos x, y
Print "@X0F @X02▀▄█▄ "
AnsiPos x, y+1
Print "@X02 @X0F▄█@X2F▄@X02▀ "
AnsiPos x, y+2
Print "@X02 @X1F▄▀@X07 "
AnsiPos x, y+3
Print "@X0F█ @X1F▀@X01█ "
AnsiPos x, y+4
Print "@X01 @X0F▀ @X1F▄▄@X07 "
Case 2
AnsiPos x, y
Print "@X0F @X02▄ ▄ "
AnsiPos x, y+1
Print "@X02 @X2F▄@X02█▀ "
AnsiPos x, y+2
Print "@X02 @X0F▀█@X1F▀@X07 "
AnsiPos x, y+3
Print "@X0F ▄@X1F▀@X01█ "
AnsiPos x, y+4
Print "@X0F▄@X1F▄@X01▀▀@X1F▄@X0F▄ "
Case 3
AnsiPos x, y
Print "@X0F @X02▄▄ "
AnsiPos x, y+1
Print "@X2F▄█▄@X02█ "
AnsiPos x, y+2
Print "@X02 @X01█@X0F█ "
AnsiPos x, y+3
Print "@X0F @X1F▀@X01█ "
AnsiPos x, y+4
Print "@X1F▄▄@X01▀▀@X0F█ "
Case 4
AnsiPos x, y
Print "@X02▄▄▄▄ "
AnsiPos x, y+1
Print "@X0F▄█@X2F▄@X02▀ "
AnsiPos x, y+2
Print "@X02 @X01█@X0F█ "
AnsiPos x, y+3
Print "@X0F @X01█@X1F▀@X07 "
AnsiPos x, y+4
Print "@X01 @X1F▄▄@X0F▀ "
Case 5
AnsiPos x, y
Print "@X07 @X02▀▄█▄ "
AnsiPos x, y+1
Print "@X02 @X0F▄█@X2F▄@X02▀ "
AnsiPos x, y+2
Print "@X02 @X01█@X1F▀@X0F▄ "
AnsiPos x, y+3
Print "@X0F█ @X01██@X0F▀ "
AnsiPos x, y+4
Print "@X0F ▀ @X1F▄▄@X07 "
Case 6
AnsiPos x, y
Print "@X0F @X02▄ ▄ "
AnsiPos x, y+1
Print "@X02 @X2F▄@X02█▀ "
AnsiPos x, y+2
Print "@X02 @X0F▀@X1F▀@X0F█▄ "
AnsiPos x, y+3
Print "@X0F @X01▄██@X0F█▄ "
AnsiPos x, y+4
Print "@X0F▄@X1F▄@X01▀▀@X1F▄@X0F▄ "
Case 7
AnsiPos x, y
Print "@X0F @X02▄▄ "
AnsiPos x, y+1
Print "@X2F▄@X0F█@X2F▄@X02█ "
AnsiPos x, y+2
Print "@X02 @X01█@X0F█ "
AnsiPos x, y+3
Print "@X0F @X01██@X0F▀ "
AnsiPos x, y+4
Print "@X1F▄▄@X01▀▀@X0F█ "
Case 8
AnsiPos x, y
Print "@X02▄▄▄▄ "
AnsiPos x, y+1
Print "@X0F▄█@X2F▄@X02█ "
AnsiPos x, y+2
Print "@X02 @X1F▄▀@X07 "
AnsiPos x, y+3
Print "@X0F @X01█@X1F▀@X07 "
AnsiPos x, y+4
Print "@X0F @X1F▄▄@X0F▀ "
End Select
Endif
Endproc
;----------------------------------------------------------------------------
Procedure LemStopStep(int stepNum, int x, int y)
Select Case StepNum
Case 0
AnsiPos x, y
Print " @X0F @X02▄▄ "
AnsiPos x, y+1
Print " @X02 ██@X2F▄▄@X07 "
AnsiPos x, y+2
Print " @X0F █▄▄▄@X1F▀▀@X0F▄▄▄█"
AnsiPos x, y+3
Print " @X0F @X01▄██▄ "
AnsiPos x, y+4
Print " @X01 @X0F▄@X1F▄@X0F @X1F▄@X0F▄ "
Case 2
AnsiPos x+5, y+1
Print "@X02█@X2F▄▄@X02█"
AnsiPos x+9, y+4
Print "@X0F▀"
Case 4
AnsiPos x+8, y
Print "@X02▄"
AnsiPos x+5, y+1
Print "@X2F▄▄▄@X02██"
AnsiPos x+9, y+4
Print "@X0F▄"
Case 5
AnsiPos x+8, y
Print "@X0F "
AnsiPos x+7, y+1
Print "@X02█"
Case 6
AnsiPos x+9, y+1
Print "@X02▄"
AnsiPos x+9, y+4
Print "@X0F▀"
Case 7
AnsiPos x+9, y+1
Print "@X0F "
Case 8
AnsiPos x+9, y+4
Print "@X0F▄"
Case 10
AnsiPos x+5, y+1
Print "@X02█@X2F▄▄@X02█"
AnsiPos x+9, y+4
Print "@X0F▀"
Case 12
AnsiPos x+7, y
Print "@X02▄"
AnsiPos x+4, y+1
Print "@X02██@X2F▄▄▄@X07"
AnsiPos x+9, y+4
Print "@X0F▄"
Case 13
AnsiPos x+5, y
Print "@X0F "
AnsiPos x+6, y+1
Print "@X02█"
Case 14
AnsiPos x+4, y+1
Print "@X02▄"
AnsiPos x+9, y+4
Print "@X0F▀"
Case 15
AnsiPos x+4, y+1
Print "@X0F "
Case 16
AnsiPos x+9, y+4
Print "@X0F▄"
End Select
Endproc
;----------------------------------------------------------------------------
Procedure Num(Int N, Int x, Int y)
Select Case N
Case 10
AnsiPos x-1, y
Print " @X0F█ █▀█ "
AnsiPos x-1, y+1
Print " @X0F█ █ █ "
AnsiPos x-1, y+2
Print " @X0F▀ ▀▀▀ "
Case 9
AnsiPos x-1, y
Print " @X0F █▀█ "
AnsiPos x-1, y+1
Print " @X0F ▀▀█ "
AnsiPos x-1, y+2
Print " @X0F ▀▀▀ "
Case 8
AnsiPos x-1, y
Print " @X0F █▀█ "
AnsiPos x-1, y+1
Print " @X0F █▀█ "
AnsiPos x-1, y+2
Print " @X0F ▀▀▀ "
Case 7
AnsiPos x-1, y
Print " @X0F ▀▀█ "
AnsiPos x-1, y+1
Print " @X0F █ "
AnsiPos x-1, y+2
Print " @X0F ▀ "
Case 6
AnsiPos x-1, y
Print " @X0F █▀▀ "
AnsiPos x-1, y+1
Print " @X0F █▀█ "
AnsiPos x-1, y+2
Print " @X0F ▀▀▀ "
Case 5
AnsiPos x-1, y
Print " @X0F █▀▀ "
AnsiPos x-1, y+1
Print " @X0F ▀▀█ "
AnsiPos x-1, y+2
Print " @X0F ▀▀▀ "
Case 4
AnsiPos x-1, y
Print " @X0F █ "
AnsiPos x-1, y+1
Print " @X0F █▄█ "
AnsiPos x-1, y+2
Print " @X0F ▀ "
Case 3
AnsiPos x-1, y
Print " @X0F ▀▀█ "
AnsiPos x-1, y+1
Print " @X0F ▀█ "
AnsiPos x-1, y+2
Print " @X0F ▀▀▀ "
Case 2
AnsiPos x-1, y
Print " @X0F ▀▀█ "
AnsiPos x-1, y+1
Print " @X0F █▀▀ "
AnsiPos x-1, y+2
Print " @X0F ▀▀▀ "
Case 1
AnsiPos x-1, y
Print " @X0F █ "
AnsiPos x-1, y+1
Print " @X0F █ "
AnsiPos x-1, y+2
Print " @X0F ▀ "
Case 0
AnsiPos x-1, y
Print " "
AnsiPos x-1, y+1
Print " "
AnsiPos x-1, y+2
Print " "
End Select
Endproc
;----------------------------------------------------------------------------
Procedure LemHeadStep(int stepNum, int x, int y)
Select Case StepNum
Case 1, 40, 51, 55, 66
AnsiPos x, y
Print "@X0F @X02▄██▄ "
AnsiPos x, y+1
Print "@X02 ▀@X0F██@X02▀ "
AnsiPos x, y+2
Print "@X02 @X0F█@X01██@X0F█ "
AnsiPos x, y+3
Print "@X0F ▀@X01██@X0F▀ "
AnsiPos x, y+4
Print "@X0F ▄@X1F▄▄@X0F▄ "
Case 2, 39, 52, 54
AnsiPos x, y+2
Print "@X02 @X0F▄▀@X01██@X0F▀▄ "
AnsiPos x, y+3
Print "@X0F ▀ @X01██ @X0F▀ "
Case 3, 38, 53
AnsiPos x, y+2
Print "@X0F▄▀▀@X01██@X0F▀▀▄"
AnsiPos x, y+3
Print "@X0F @X01██ "
Case 4, 37
AnsiPos x, y+1
Print "@X02 ▀@X0F██@X02▀ "
AnsiPos x, y+2
Print "@X0F▀▀▀@X01██@X0F▀▀▀"
Case 5, 36
AnsiPos x, y+1
Print "@X0F▀▄@X02▀@X0F██@X02▀@X0F▄▀"
AnsiPos x, y+2
Print "@X0F ▀@X01██@X0F▀ "
Case 6, 35
AnsiPos x, y
Print "@X0F @X02▄██▄ "
AnsiPos x, y+1
Print "@X02 @X0F█@X02▀@X0F██@X02▀@X0F█ "
AnsiPos x, y+2
Print "@X0F ▀@X01██@X0F▀ "
Case 7, 9, 25
AnsiPos x, y
Print " "
AnsiPos x, y+1
Print "@X0F ▄@X2F▀▄▄▀@X0F▄ "
AnsiPos x, y+2
Print "@X0F ▀@X2F▄@X1F▀▀@X2F▄@X0F▀ "
AnsiPos x, y+3
Print "@X0F @X01██ "
Case 8, 11, 13, 15
AnsiPos x, y+1
Print "@X0F▄@X02▄@X2F▄▄▀@X0F▄ "
AnsiPos x, y+2
Print "@X0F▀@X2F▄@X1F▀▀▀@X0F█ "
AnsiPos x, y+3
Print "@X0F @X01▀██ "
Case 10, 12, 14
AnsiPos x, y+1
Print "@X0F ▄@X2F▀▄▄@X02▄@X0F▄"
AnsiPos x, y+2
Print "@X0F █@X1F▀▀▀@X2F▄@X0F▀"
AnsiPos x, y+3
Print "@X0F @X01██▀ "
Case 50
AnsiPos x, y-3
Print "@X0F ▀▀█ "
AnsiPos x, y-2
Print "@X0F ▀ "
AnsiPos x, y-1
Print "@X0F ▀ "
Case 56
AnsiPos x, y-3
Print " "
AnsiPos x, y-2
Print " "
AnsiPos x, y-1
Print " "
Case 67
AnsiPos x, y-1
Print "@X02 ▄██▄ "
AnsiPos x, y
Print "@X02 ▀@X0F██@X02▀ "
AnsiPos x, y+1
Print "@X02 @X0C│| "
AnsiPos x, y+2
Print "@X0C @X0F█@X01██@X0F█ "
AnsiPos x, y+3
Print "@X0F ▀@X01██@X0F▀ "
AnsiPos x, y+4
Print "@X0F ▄@X1F▄▄@X0F▄@X07 "
Case 68
AnsiPos x, y-3
Print " @X02▄██▄ "
AnsiPos x, y-2
Print " @X02▀@X0F██@X02▀ "
AnsiPos x, y-1
Print " @X02 @X0C│| "
AnsiPos x, y
Print " @X0C ·. "
AnsiPos x, y+1
Print " @X0C |│ "
Case 69
AnsiPos x, y-8
Print " @X02▄██▄ "
AnsiPos x, y-7
Print " @X02▀@X0F██@X02▀ "
AnsiPos x, y-6
Print " @X02 @X0C││ "
AnsiPos x, y-5
Print " @X0C | "
AnsiPos x, y-4
Print " @X0C · "
AnsiPos x, y-3
Print " "
AnsiPos x, y-2
Print " "
AnsiPos x, y-1
Print " @X0C · "
AnsiPos x, y
Print " "
AnsiPos x, y+1
Print " @X0C_¬⌐_ "
Case 70
AnsiPos x, y-17
Print " @X02▄██▄ "
AnsiPos x, y-16
Print " @X02▀@X0F██@X02▀ "
AnsiPos x, y-15
Print " @X02 @X0C│| "
AnsiPos x, y-14
Print " @X0C ││ "
AnsiPos x, y-13
Print " @X0C |│ "
AnsiPos x, y-12
Print " @X0C ·| "
AnsiPos x, y-11
Print " @X0C ·. "
AnsiPos x, y-9
Print " @X0C ·. "
AnsiPos x, y-8
Print " "
AnsiPos x, y-7
Print " @X0C . "
AnsiPos x, y-6
Print " "
AnsiPos x, y-5
Print " "
AnsiPos x, y-4
Print " "
AnsiPos x, y-3
Print " @X0C · "
AnsiPos x, y-1
Print " "
AnsiPos x, y+1
Print " @X0C____ "
AnsiPos x, y+2
Print " @X0F█@X1C▀|@X0F█ "
Case 71
AnsiPos x, y-17
Print " "
AnsiPos x, y-16
Print " "
AnsiPos x, y-15
Print " "
AnsiPos x, y-14
Print " "
AnsiPos x, y-13
Print " "
AnsiPos x, y-12
Print " "
AnsiPos x, y-11
Print " "
AnsiPos x, y-9
Print " "
AnsiPos x, y-7
Print " "
AnsiPos x, y-3
Print " "
Case 81
AnsiPos x, y+1
Print " @X0C ____"
AnsiPos x, y+2
Print " @X0C @X0F█@X1C▀|@X0F█"
AnsiPos x, y+3
Print " @X0F ▀@X01██@X0F▀ "
AnsiPos x, y+4
Print " @X0F▀@X1F▄▄@X0F▄ "
Case 83
AnsiPos x, y+1
Print " @X07 "
AnsiPos x, y+2
Print " @X0F ▄▄@X0C°_ "
AnsiPos x, y+3
Print " @X0F▄@X01▄@X1F▀@X01█@X1F▄@X0F▀@X0C|`"
AnsiPos x, y+4
Print " @X0C @X0F▀@X1F▄@X07 "
Case 84
AnsiPos x, y+2
Print " "
AnsiPos x, y+3
Print " @X0F▄ "
AnsiPos x, y+4
Print " @X0F█@X01██@X1F▄▄@X0C,___@X07"
Case 95
AnsiPos x+decal, y-17
Print "@X0C · "
AnsiPos x+decal, y-16
Print "@X0C .· "
AnsiPos x+decal, y-15
Print "@X0C |│ "
AnsiPos x+decal, y-14
Print "@X0C │| "
AnsiPos x+decal, y-13
Print "@X02▄@X0F██@X02▄"
AnsiPos x+decal, y-12
Print "@X02▀██▀"
Case 96
AnsiPos x+decal, y-17
Print " "
AnsiPos x+decal, y-16
Print " "
AnsiPos x+decal, y-15
Print " "
AnsiPos x+decal, y-14
Print " "
AnsiPos x+decal, y-13
Print " "
AnsiPos x+decal, y-12
Print " "
AnsiPos x+decal, y-11
Print "@X0C · "
AnsiPos x+decal, y-10
Print "@X0C .· "
AnsiPos x+decal, y-9
Print "@X0C |│ "
AnsiPos x+decal, y-8
Print "@X0C │| "
AnsiPos x+decal, y-7
Print "@X02▄@X0F██@X02▄"
AnsiPos x+decal, y-6
Print "@X02▀██▀"
Case 97
AnsiPos x+decal, y-11
Print " "
AnsiPos x+decal, y-10
Print " "
AnsiPos x+decal, y-9
Print " "
AnsiPos x+decal, y-8
Print " "
AnsiPos x+decal, y-7
Print " "
AnsiPos x+decal, y-6
Print " "
AnsiPos x+decal, y-5
Print "@X0C · "
AnsiPos x+decal, y-4
Print "@X0C .· "
AnsiPos x+decal, y-3
Print "@X0C |│ "
AnsiPos x+decal, y-2
Print "@X0C │| "
AnsiPos x+decal, y-1
Print "@X02▄@X0F██@X02▄"
AnsiPos x+decal, y
Print "@X02▀██▀"
Case 98
AnsiPos x+decal, y-5
Print " "
AnsiPos x+decal, y-4
Print " "
AnsiPos x+decal, y-3
Print " "
AnsiPos x+decal, y-2
Print " "
AnsiPos x+decal, y-1
Print "@X0C · "
AnsiPos x+decal, y
Print "@X0C .· "
AnsiPos x+decal, y+1
Print "@X0C |│ "
AnsiPos x+decal, y+2
Print "@X0C │| "
AnsiPos x+decal-3, y+3
Print "@X0C°` @X02▄@X0F██@X02▄ @X0C,"
AnsiPos x+decal-3, y+4
Print "@X0C__\@X02▀██▀@X0C/__"
Case 99
AnsiPos x+decal, y-1
Print " "
AnsiPos x+decal, y
Print " "
AnsiPos x+decal, y+1
Print " "
AnsiPos x+decal, y+2
Print " "
AnsiPos x+decal-3, y+3
Print " "
AnsiPos x+decal+1, y+2
Print "@X02▄@X0F██@X02▄"
AnsiPos x+decal+1, y+3
Print "@X02▀██▀@X07"
AnsiPos x+decal-3, y+4
Print "@X0C__________"
AnsiPos x+decal+2, y+1
Print "@X0C_,"
Case 100
AnsiPos x+decal+1, y+2
Print " "
AnsiPos x+decal+1, y+3
Print " "
AnsiPos x+decal+2, y+1
Print " "
AnsiPos x+decal+2, y+1
Print "@X02▄█@X2F▄@X0F▄@X0C,"
AnsiPos x+decal+2, y+2
Print "@X02▀█@X2F▀@X0F▀@X0C`"
Case 101
AnsiPos x+decal+2, y+1
Print " "
AnsiPos x+decal+2, y+2
Print " "
AnsiPos x+decal+3, y+2
Print "@X02▄█@X2F▄@X0F▄@X0C,"
AnsiPos x+decal+3, y+3
Print "@X02▀█@X2F▀@X0F▀@X0C`"
Case 102
AnsiPos x+decal+3, y+2
Print " "
AnsiPos x+decal+3, y+3
Print " "
AnsiPos x+decal+4, y+3
Print "@X02▄█@X2F▄@X0F▄@X0C,"
AnsiPos x+decal+3, y+4
Print "@X0C_@X02▀█@X2F▀@X0F▀@X0C`,__"
Case 104
PageFailed = True
End Select
Endproc
;----------------------------------------------------------------------------
Function Menu(String PageName, Int Firstline, Int FirstX, Int LastX, Int nLines, Int Def, Int Special) Integer
Int Sel
Sel = Def
nLines = nLines*2
lbFirstX = FirstX
lbLastX = LastX
MenuFirstLine = FirstLine
Color @X0F
select Case PageName
Case "FAILED"
DrawFailed()
Case "SLEEPING"
DrawSleeping()
End select
DispSel(Sel)
While (1) Do
k = Inkey()
If (k <> "") Then
Select case k
Case "DOWN", "2","5"
EraseSel(Sel)
Sel = Sel + 2
If (Sel = nLines + 1) Sel = 1
If (Special = 1 && PageName == "FAILED") DrawLemArm(Sel)
DispSel(Sel)
Case "UP","8"
EraseSel(Sel)
Sel = Sel - 2
If (Sel < 1) Sel = nLines - 1
If (Special = 1 && PageName == "FAILED") DrawLemArm(Sel)
DispSel(Sel)
Case Chr(13)
Menu = (Sel+1)/2
Break
Case Chr(27)
Menu = 0
Break
End Select
EndIf
EndWhile
Endfunc
;----------------------------------------------------------------------------
Procedure DispSel(Integer Seln)
AnsiPos lbFirstX,MenuFirstLine+Seln-1
BakLightBar = ScrText(lbFirstX,MenuFirstLine+Seln-1,lbLastX-lbFirstX,True)
Print "@X1F",Upper(ScrText(lbFirstX,MenuFirstLine+Seln-1,lbLastX-lbFirstX,False))
EraseCursor()
Endproc
;----------------------------------------------------------------------------
Procedure EraseSel(Integer Seln)
AnsiPos lbFirstX,MenuFirstLine+Seln-1
Print "@X0F",BakLightBar
EraseCursor()
Endproc
;----------------------------------------------------------------------------
Procedure EraseCursor()
AnsiPos 1,1
Color 0
Print " "
Backup 1
EndProc
;----------------------------------------------------------------------------
Procedure DrawLemArm(Int Sel)
Select Case Sel
Case 1
AnsiPos 51, 10
Print "@X0F▀▄"
AnsiPos 51, 11
Print " ▀"
AnsiPos 51, 12
Print " "
Case 3
AnsiPos 51, 10
Print "@X0F "
AnsiPos 51, 11
Print "▀▀▀"
AnsiPos 51, 12
Print " "
Case 5
AnsiPos 51, 10
Print "@X0F "
AnsiPos 51, 11
Print " ▄▀"
AnsiPos 51, 12
Print "▀"
End Select
Endproc
;----------------------------------------------------------------------------
Procedure Endprocedure(string stuff)
if (pageSuccess = False && writeMsg) Then
FCreate 1, PPEPath()+"MSG."+string(PcbNode()), O_WR, S_DN
FPutln 1, "@X0F@X02▄██▄ @X0F Hi! This is the Lemming Reporter, please note that"
FPutln 1, "@X02▀@X0F██@X02▀ @X0F< " + Mixed(Trim(U_Name()," "))+ " paged you on "+string(date())+ " at "+string(Time())+"."
FPutln 1, "@X02@X0F█@X01██@X0F█ @X0FHis reason for paging was : """ + Reason + """"
FPutln 1, "@X0F▀@X01██@X0F▀ @X0FPlease... i've been nice... don't kill me!!!"
FPutln 1, "@X0F▄@X1F▄▄@X0F▄"
FPutLn 1, ""
FPutLn 1, "@X0FPress (@X8CK@X0F) NOW! to Kill this boring lemming... :>"
Fclose 1
Message 0, "SYSOP", "LEMMING REPORTER", "HI MASTER!", "R", 0, False, False, PPEPath() + "MSG."+string(Pcbnode())
Delete PPEPath() + "MSG."+string(Pcbnode())
Endif
cls
kbdstuff stuff
end
endproc
;----------------------------------------------------------------------------
Procedure DrawFailed()
AnsiPos 21, 6
Print "@X0F█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█"
AnsiPos 21, 7
Print "@X0F█ Page Failed! =( █"
AnsiPos 21, 8
Print "@X0F█ █"
AnsiPos 21, 9
Print "@X0F█ Ok, i'll try later... @X02▄██▄ @X0F█"
AnsiPos 21, 10
Print "@X0F█ ▀▄@X02▀@X0F██@X02▀ @X0F█"
AnsiPos 21, 11
Print "@X0F█ Too bad, i'll let a messy ▀@X01██@X0F█ █"
AnsiPos 21, 12
Print "@X0F█ @X01██@X0F▀ █"
AnsiPos 21, 13
Print "@X0F█ Hey! This is an emergency! ▄@X1F▄▄@X0F▄ █"
AnsiPos 21, 14
Print "@X0F█ █"
AnsiPos 21, 15
Print "@X0F█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█"
endproc
;----------------------------------------------------------------------------
Procedure DrawSleeping()
AnsiPos 14, 7
Print "@X0F█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█"
AnsiPos 14, 8
Print "@X0F█ Sysop is sleeping! @X8F______ @X0F█"
AnsiPos 14, 9
Print "@X0F█ @X8F( Zzzz ) @X0F█"
AnsiPos 14, 10
Print "@X0F█ Good night sweet sysop... @X8F`~~~\| @X0F█"
AnsiPos 14, 11
Print "@X0F█ ▄ ▄@X02▄▄@X06█ @X0F█"
AnsiPos 14, 12
Print "@X0F█ Hopa! I'll leave a messy! @X06█ @X0F█@X01██@X1F▄▄@X2F▀▀▀@X02█@X06█ @X0F█"
AnsiPos 14, 13
Print "@X0F█ @X06█@X76▄▄▄▄▄▄▄▄▄▄▄▄▄@X06█ @X0F█"
AnsiPos 14, 14
Print "@X0F█ Hey! This is an emergency! @X06▀ ▀ @X0F█"
AnsiPos 14, 15
Print "@X0F█ █"
AnsiPos 14, 16
Print "@X0F▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
Endproc
;----------------------------------------------------------------------------
Procedure LemFallStep(int stepNum, int x, int y)
Select Case StepNum
Case 0
AnsiPos x, y
Print "@X0F@X02▄██▄"
AnsiPos x, y+1
Print "@X02▀@X0F██@X02▀"
AnsiPos x, y+2
Print "@X02@X0F█@X01██@X0F█"
AnsiPos x, y+3
Print "@X0F▀@X01██@X0F▀"
AnsiPos x-1, y+4
Print "@X0F ▄@X1F▄▄@X0F▄"
Case 10,11,12,13,14,15,16,17,18,19,20
AnsiPos x, y+(stepnum-10)
Print "@X0F "
AnsiPos x, y+(stepnum-10)+1
Print "@X0F@X02▄██▄"
AnsiPos x, y+(stepnum-10)+2
Print "@X02▀@X0F██@X02▀"
AnsiPos x, y+(stepnum-10)+3
Print "@X02@X0F█@X01██@X0F█"
AnsiPos x, y+(stepnum-10)+4
Print "@X0F▀@X01██@X0F▀"
AnsiPos x, y+(stepnum-10)+5
Print "@X0F▄@X1F▄▄@X0F▄"
Case 21
AnsiPos x-1, y+11
Print "@X0F "
AnsiPos x-1, y+12
Print "@X02 ▄██▄"
AnsiPos x-1, y+13
Print "@X02 ▀@X0F██@X02▀"
AnsiPos x-1, y+14
Print "@X0F █@X01█▌█@X0F█"
AnsiPos x-1, y+15
Print "@X0F ▀@X01█@X0C▐@X01█@X0F▀"
AnsiPos x-1, y+16
Print "@X0F @X0F▄@X1F▄@X0E▌@X1F▄@X0F▄"
AnsiPos x-1, y+17
Print "@X0E @X0C█@X0E█@X0C"
AnsiPos x-1, y+18
Print "@X0E@X0C_▐@X0E██@X0C█_"
Case 21
AnsiPos x-2, y+12
Print "@X0F "
AnsiPos x-2, y+13
Print "@X0E @X02▄██▄"
AnsiPos x-2, y+14
Print "@X0C `@X02▀@X0F██@X02▀"
AnsiPos x-2, y+15
Print "@X0F █@X01█@X0C▌·▐@X01█@X0F█@X0C/,"
AnsiPos x-2, y+16
Print "@X0C\@X0F▀@X01█@X0C▌@X0E▌@X0C■@X01█@X0F▀"
AnsiPos x-2, y+17
Print "@X0F ▄@X1F▄@X0C█@X0E█@X0C▌@X1F▄@X0F▄"
AnsiPos x-2, y+18
Print "@X0E▌@X0C_▐@X0E██@X0C█_,"
Case 22
AnsiPos x-2, y+11
Print "@X0C ·"
AnsiPos x-2, y+12
Print "@X0C ` ·, ·"
AnsiPos x-2, y+13
Print "@X0C · \v/~"
AnsiPos x-2, y+14
Print "@X02 ▄█@X0C▓@X02█▄"
AnsiPos x-2, y+15
Print "@X0C `@X02▀@X0F█@X0C░@X0F█@X02▀"
AnsiPos x-2, y+16
Print "@X0F█@X01█ @X0C▌@X0E▌@X0C■ @X01█@X0F█"
AnsiPos x-2, y+17
Print "@X0F▀@X01█ @X0C█@X0E█@X0C▌@X01▐@X1F▐"
AnsiPos x-2, y+18
Print "@X1E▌@X1F▄@X0C▐@X0E██@X0C█@X1F▄@X0F▄"
Case 23
AnsiPos x+2, y+11
Print " "
AnsiPos x, y+12
Print " "
AnsiPos x-3, y+13
Print "@X0C` , ·"
AnsiPos x-4, y+14
Print "@X0C` · · `"
AnsiPos x-4, y+15
Print "@X0C `@X02▄█@X0C▓@X02█▄"
AnsiPos x-4, y+16
Print "@X02 @X0C▌@X0F█@X01█@X02▀@X0F█@X0C█@X0F█@X02▀@X01█@X0F█@X0E▌ @X0C`"
AnsiPos x-4, y+17
Print "@X0E▐@X0C█@X0F▀@X01█@X0C▌█@X0E█@X0C▌@X01▐@X1F▐@X0C█"
AnsiPos x-4, y+18
Print "@X0E██@X1E▌@X1F▄@X0C██@X0E█@X0C█@X1F▄@X0F▄"
Case 24
AnsiPos x-3, y+13
Print " "
AnsiPos x-4, y+14
Print " "
AnsiPos x-1, y+15
Print " "
AnsiPos x-3, y+16
Print "@X0C▌@X0F█@X01█@X02▄█@X0C█@X02█▄@X01█@X0F█@X0C▌ ▌ ▌"
AnsiPos x-3, y+17
Print "@X0C█@X0F▀@X01█@X2C▄@X0F█@X0E█@X0F█@X2C▄@X1F▐@X0C█@X0E█ @X0C▐"
AnsiPos x-3, y+18
Print "█@X1E▌@X1F▄@X0C██@X0E█@X0C█@X1F▄@X0F▄"
Case 25
PageFailed = True
End Select
Endproc
;----------------------------------------------------------------------------
Procedure Flash()
Select Case FlashMethod
Case 1
DoIntr 10h, 1010h, 0, 3F3Fh, 3F00h, 0, 0, 0, 0, 0
Case 2
Dointr 10h, 0B00h, 15, 0, 0, 0, 0, 0, 0, 0
End Select
Endproc
;----------------------------------------------------------------------------
Procedure FlashOff()
Select Case FlashMethod
Case 1
DoIntr 10h, 1010h, 0, 0, 0, 0, 0, 0, 0, 0
Case 2
Dointr 10h, 0B00h, 0, 0, 0, 0, 0, 0, 0, 0
End Select
Endproc
;----------------------------------------------------------------------------
Procedure Flash2()
Select Case FlashMethod
Case 1
DoIntr 10h, 1010h, 0, 0, 3F00h, 0, 0, 0, 0, 0
Case 2
Dointr 10h, 0B00h, 4, 0, 0, 0, 0, 0, 0, 0
End Select
Endproc
;----------------------------------------------------------------------------
Function AskPwd() Boolean
String Bak(2)
If (NameIsIn("PAGER.VIP")) Then
AskPwd = True
Else
Bak(0) = Scrtext(26, 17, 28, True)
Bak(1) = Scrtext(26, 18, 28, True)
Bak(2) = Scrtext(26, 19, 28, True)
AnsiPos 26,17
Print "@X0F█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█"
AnsiPos 26,18
Print "@X0F█ PWD: █"
AnsiPos 26,19
Print "@X0F█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█"
If (Upper(InputLine(33, 18, 19, "", Mask_Ascii() + Password, False, True)) = Upper(Password)) Then
AskPwd = True
Else
AnsiPos 26, 18
If (InputLineControl = 1) Then
Print "@X0F█ PWD: @X08*@X04*@X0C*ASK TO SYSOP!*@X04*@X08*@X0F █"
Else
Print "@X0F█ PWD: @X08*@X04*@X0C*BAD PASSWORD!*@X04*@X08*@X0F █"
Endif
Delay 8
AskPwd = False
Endif
AnsiPos 26,17
Print Bak(0)
AnsiPos 26,18
Print Bak(1)
AnsiPos 26,19
Print Bak(2)
Endif
Endfunc
;----------------------------------------------------------------------------
Function InputLine(Integer Col, Integer Row, Integer SLen, String Def, String Chars, Boolean Up, Boolean Hide) String
Integer il_L
String il_Line
String k
InputLineControl = 0
AnsiPos Col, Row
Print "@X0B"+Def
il_L = Len(Def)
il_Line = Def
While (True) Do
k = Inkey()
If (Up) k = Upper(k)
Select Case k
Case Chr(27)
InputLine = il_Line;""
InputLineControl = 1
Break
Case Chr(13)
InputLine = il_Line
Break
Case Chr(8)
If (il_Line <> "") Then
il_Line = Left(il_Line,len(il_Line)-1)
Backup 1
Print "@X0F "
Backup 1
Endif
Case Else
If (Len(il_Line) < SLen & Len(k) = 1 & Asc(k) > 31) Then
If (InStr(Chars, k)) Then
If (Right(Il_Line,1) = " ") k = Upper(K)
il_Line = il_Line + k
If (Hide) Then
Print "@X0B*"
Else
Print "@X0B"+k
Endif
Endif
Endif
End Select
Endwhile
EndFunc
;----------------------------------------------------------------------------
Procedure DispBackgrnd()
PrintLn "@CLS@@X07@X0F @X0C▄@X04▄ @X0C▄@X04▄ @X0C▄@X04▄ @X0C▄@X04▄ ▓▒ @X0C▄@X04▄ @X0C▄@X04▄ @X0C▄@X04▄ @X0C▄@X04▄ @X0C▄@X04▄"
PrintLn "@X04 @X0C▐@X4C▒░ @X0F @X4C░@X04▌ @X0C▐@X4C▒░ @X0F @X0C▐@X4C▒░ @X0F @X0C▐@X4C▒░ @X0F @X04░ @X0C▐@X4C▒░ @X04▀▄▄ @X0C▐@X4C▒░ @X04▄ @X0C▄ ▐@X4C▒░ @X0F @X0C▐@X4C▒░ @X0F @X0C▐@X4C▒░ @X07"
PrintLn "@X0F @X4C▒░ @X0F @X0C▄@X4C░@X04▀ @X4C▒░ @X0F @X4C▒░ @X0F @X4C▒░ @X0F @X4C▒░ @X0F @X04▀▌@X4C▒░ @X04 ▐▀@X4C▒@X0F @X4C▒░ @X0F @X4C▒░ @X0F @X4C▒░ @X07"
PrintLn "@X0F @X0C▐@X4C░@X0F @X0C■@X4C▒░@X0F @X0C▐@X4C░@X0F @X0C▐@X4C░@X0F @X0C▄ ▐@X4C░@X0F @X0C▄ ▐@X4C░@X0F @X04■▀▀ @X0C▐@X4C░@X0F @X04▀ @X4C░@X0F @X0C▐@X4C░@X0F @X0C▐@X4C░@X0F @X0C▐@X4C░@X07"
PrintLn "@X0F @X4C░@X04▌ @X0C▀@X4C░░@X0F @X4C░@X04▌ @X4C░@X04▌ ▄@X4C░▒@X0C▌ @X4C░@X04▌ ▄@X4C░▒@X0C▌ @X4C░@X04▌ ▄@X4C░▒@X0F @X4C░@X04▌ ▐▌ @X4C░@X04▌ @X4C░@X04▌ @X4C░@X04▌"
PrintLn "@X04 @X0C▀▄ @X4C▒░@X0F @X0C▀▄ ▀▄@X4C░@X04▀▀@X0C▀ ▀▄@X4C░@X04▀▀@X0C▀@X04░ @X0C▀▄@X4C @X04▀@X0C▀ ▀▄ @X04▀ @X0C▄ ▄ ▄"
PrintLn "@X0C @X04█ █ ░ ░ █ █ ▓ ░ ▒ ▓ Ms"
PrintLn "@X04 ▒▓ ░▓ ░▒ ▓ ▓ ▒▓ ▓ ▓ ▒"
PrintLn "@X04 ▒ ▒ ░ ▒ ▒ ░▒ ▒ ▒ ░"
PrintLn "@X04 ░ ░ ░ ░ ░ ░ ░"
PrintLn "@X04 ░ ░ ░ ░"
PrintLn "@X04 ░ ░ ░ ░ ░"
PrintLn "@X04 ░ ░ ░"
PrintLn "@X04 ░ ░"
PrintLn "@X06▓█▄ @X04░ @X06▄█▓"
PrintLn "@X06████▄ ▄████"
PrintLn "@X06█▓█▓██ ██▓█▓█"
PrintLn "@X06██▒████ ████▒██"
PrintLn "@X06▓▒█▓██▓█ █▓██▓█▒▓"
PrintLn "@X06█▓█▓▓███▄ ▄███▓▓█▓█"
PrintLn "@X06████▓▓▒██ ██▒▓▓████"
Print "@X06▓██▓███▓██▒▓█▓▒████▒▓█▓▓▓▓▒▒▓▓▓▓▓▓▓█▓█▓▒▓▓████▓▓██░▓▓▓▓▓▒░▓█▓████▓▒▒▓██▓███▓██▓"
Endproc
;----------------------------------------------------------------------------
Procedure DispBackgrnd2()
PrintLn "@CLS@@X0F @X0C▓▀▄ ▒█▀ ▓▀█ ▒▀▄"
PrintLn "@X0C █▄▀ ▓▄▄ █▀▒ ▓▄▀"
PrintLn ""
PrintLn "@X0C ▓█▀ ▓▀▄ █▀▄ ▓"
PrintLn "@X0C ▓▄▄ ▒ ▓ ▓▄▀ ▄"
PrintLn ""
PrintLn "@X0C ███"
PrintLn "@X0C ▐█▌"
PrintLn "@X0C ▄▄█▄▄"
PrintLn "@X06▒▓█▓▒████▒▓▒▓▓▓█▒▒▓█▓▓▓▓▓█▓█▓▒▓▓████▓▓██▓░▓▓▓▓▓░▓█▓█▓▒▒ @X0C▀█▀"
PrintLn "@X06████▓▒██████████▓█████▒█▓▓████▓███████████████████████▒"
PrintLn "@X06▒████████████▒▓██████████▒█████▒██████████████████████▓"
PrintLn "@X06▓███████████████████████████████████▒████▓██████▒█▓███▓"
PrintLn "@X06▓█▓▒██████▓▒█▓███▒▓█▒███████████████████▒████████▓████▓"
PrintLn "@X06████▒███████▒██▒██▓█████████████▒█████▓█████████▒██████"
PrintLn "@X06████▓▒████████░▓█▓█████████▒▒███████████████████████▓█▒"
PrintLn "@X06▓█▒███████▓▒█░████████████▒█▒▓░██████████████████████▒░"
PrintLn "@X06████▒███▓▒██████▒█████▒█@X6F▄▄@X0F█▀▀█@X6F▄▄@X06▓███▒░██████▓███▓▒████▒"
PrintLn "@X06███████▒▓████▓█▓████@X6F▄▄@X0F█▀▀ ▀▀█@X6F▄▄@X06█▓████████████████▒"
PrintLn "@X06▓███▒██████▓███▒██@X6F▄@X0F█▀ ▀█@X6F▄@X06█▓████▒█░▒██████▓"
PrintLn "@X06█▓████████████▓█@X6F▄@X0F█▀ ▀█@X6F▄@X06████▓██████████ @X0E▌ ▌ ▌ ▌ ▌"
PrintLn "@X06█▒██████████▒██@X0F█@X2F▀@X02▄ ▄@X2F▀@X0F█@X06████████▒████▒ @X0E▐█ ▐█ ▐█ ▐█ ▐█"
Print "@X06▒█████▓█████▓█@X0F█@X2F▀@X02██@X01▒@X09▒▓▒▓█▓▒▒▓█▒▓█▓▒█▓▒@X01▒@X02██@X2F▀@X0F█@X06██████▓██████ @X0E██▌ ██▌ ██▌ ██▌ ██▌"
Endproc